home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d14 / demdat.arc / STKFO.SBP < prev    next >
Encoding:
Text File  |  1990-06-01  |  2.8 KB  |  172 lines
  1. SBP
  2.   ╜     STKFO
  3.   ╜     Maintain Countries/Currencies
  4.   ╜     Last updated May 14, 90
  5.  
  6.   │ _ wferror
  7.  
  8. stkfo: ╜ Assign function parameters
  9.  cou% 3:cur% 4
  10.   ╔ µmb%
  11.   µcou%
  12. f$ "country":fkey$ "Name.COUNTRY":fmd$ "stko":fmp$ "stko2"
  13. ffld% 4
  14.   µcur%
  15. f$ "currency":fkey$ "Currency.CURRENCY":fmd$ "stku":fmp$ "stku2"
  16. ffld% 6
  17.   Æ ╔
  18.  frow% 10:fst% 0: ┤ £fmd$
  19.  
  20. floop: ╜ Display from first record
  21.   vslimits
  22.  ckey$ fstk$
  23.   wfform
  24.  
  25. fpage: ╜ Re-display page
  26.   vslimits
  27.  ckey$ pstk$(1)
  28.  
  29. fform: ╜ Display from ckey$
  30.   vspage
  31.   ífst% p £
  32.  fst% 1
  33.  
  34. fwait: ╜ Wait here for a push button
  35.  mp% 0
  36.   ╩ ╦ss13$
  37.   ╧ ▀
  38.  
  39.  ╜ Edit line
  40.   í(mp% 0 mp% lrec%) p wfwait
  41.   ╩ ╦ss4$
  42.   ╔ £ "mp%
  43.  fnd% 0
  44.  ckey$ fkey$$
  45.   ▀ │
  46.   ímb% cur% p öCurrency  "mp%
  47.   ímb% cou% p öName  "mp%,ffld%
  48.   í(mb% cou%  Name.COUNTRY ckey$) (mb% cur%  Currency.CURRENCY ckey$) p
  49. skey$ fkey$$
  50.  vsinteg
  51.  ífnd% 0 p ╔ £ "mp%:fkey$$ skey$
  52.   Æ í
  53.   ífnd% 0 p
  54.  ímb% cur% p ╩ ╦ss4$: öDescription  "mp%,ffld% 1
  55.  ┬ms1$,"",127,b%
  56.  íb% 1 p ╠
  57.   Æ í
  58.   wfpage
  59.  
  60. fenter:  ╜ Enter new records
  61.   ü £
  62.   ╬
  63.   ╩ ╦ss3$
  64.   ▀ │
  65.  mp% 1
  66.  
  67. fenter2: 
  68.   ö(mp% 1) ffld% 1,ffld%
  69.   ┬ms1$,"",127,a%
  70.   ía% 1 p ╠:mp% mp% 1
  71.   ┬ms2$,"",130,a%
  72.   ía% 0 p wfloop
  73.   ímp%     frow% p wfenter2  ^ wfenter
  74.  
  75. fdelete:  ╜ Delete record
  76.   ╩ ╦ss12$
  77.   ╧ ▀
  78.   ╔ £ "mp%
  79.  ckey$ fkey$$
  80.  fnd% 0
  81.   vsinteg
  82.   ífnd% 0 p
  83.  ┬ms14$ ckey$,"",119,a%
  84.  ía% p
  85.  ╔ £ "mp%
  86.  ╔ Ñckey$
  87.  ╔ ╛
  88.  Æ í
  89.   Æ í
  90.   wfpage
  91.  
  92. fnext: ╜ Next page
  93.   ílstk$ pstk$(lrec%) p wfwait
  94.   ╔ Ñpstk$(lrec%)
  95.   ╔ ▒
  96.   wfcurr
  97.  
  98. fprev: ╜ Prev page
  99.   ífstk$ pstk$(1) p wfwait
  100.   ╔ Ñpstk$(1)
  101.   ¢i% 1 qfrow%
  102.  ╔ g
  103.   ▒i%
  104.  
  105. fcurr: ╜ Assign ckey
  106.  ckey$ fkey$$
  107.   wfform
  108.  
  109. fexit: ╜ Exit
  110.   ä"menu"
  111.  
  112. fprint:  ╜ Print
  113.   ┤ £fmp$
  114.   ╣ Y
  115.   ┤ £fmd$
  116.   wfform
  117.  
  118. slimits:  ╜ fkey$$ gets the contents of the field named by fkey$ 
  119.   ╔ b
  120.  lstk$ fkey$$
  121.   ╔ `
  122.  fstk$ fkey$$
  123.   ├
  124.  
  125. spage: ╜ Displays page of records starting with ckey$
  127.  ╜ Returns key array and number of records for page
  128.   ü £
  129.   ╔ Ñckey$
  130.  j% 0
  131.   ¢i% 1 qfrow%
  132.  ═ £ "i%
  133. j% j% 1
  134. pstk$(i%) fkey$$
  135.  ífkey$$ lstk$ pi% frow%
  136.  íi% 
  137. frow% p ╔ ▒
  138.   ▒i%
  139.   íj% frow% plrec% frow% ^lrec% j%
  140.   ├
  141.  
  142. sinteg: ╜ check not in use by clients or stocks
  143.   ╩ ╦ss16$
  144.   ímb% cou% p
  145.  Ö"clients"
  146.  úf$
  147.  ╔ Ñckey$
  148.  í C("") p ┬ms25$,ckey$ " referenced by clients file",100,a%:fnd% 1
  149.   Æ í
  150.   Ö"stocks"
  151.   úf$
  152.   ╔ Ñckey$
  153.   í C("") p ┬ms25$,ckey$ " referenced by stocks file",100,a%:fnd% 1
  154.   Öf$
  155.   ├
  156.  
  157. ferror: ╜ Error conditions
  158.  res% 0
  159.   í & 11 p
  160.  ┬ms21$,ms22$,130,a%: ía% 1 pres% 1
  161.   ^ í & 57 p
  162.  ┬ms8$,"",2,a%:res% 2
  163.   ^
  164.  ┬ (( &),ms9$,114,a%: ía% 1 pres% 3
  165.   Æ í
  166.   íres% 1 p y
  167.   íres% 2 p yfloop
  168.   íres% 3 p yfwait
  169.   É
  170.  
  171.  
  172.